home *** CD-ROM | disk | FTP | other *** search
/ Resource Library: Multimedia / Resource Library: Multimedia.iso / hypercrd / xcmds / shwdlg16.hqx / ShowDialog XCMD 1.6 / card_2200.txt < prev    next >
Text File  |  1989-05-10  |  10KB  |  405 lines
  1. -- card: 2200 from stack: in.6
  2. -- bmap block id: 4696
  3. -- flags: 0000
  4. -- background id: 3411
  5. -- name: Shareware
  6. ----- HyperTalk script -----
  7. on turnOn buttonNo
  8.   lock screen
  9.   repeat with counter = 2 to 5
  10.     if buttonNo = counter then
  11.       set the hilite of cd btn counter to TRUE
  12.       show cd fld (counter-1)
  13.     else
  14.       set the hilite of cd btn counter to FALSE
  15.       hide cd fld (counter-1)
  16.     end if
  17.   end repeat
  18.   show cd btn "Close Information"
  19.   unlock screen with visual effect dissolve
  20. end turnOn
  21.  
  22. on closeall
  23.   set cursor to watch
  24.   lock screen
  25.   repeat with x = 2 to 5
  26.     hide cd fld (x-1)
  27.     set hilite of cd btn x to FALSE
  28.   end repeat
  29.   hide cd btn "Close Information"
  30.   unlock screen with visual effect dissolve
  31. end closeall
  32.  
  33. on closecard
  34.   closeall
  35. end closecard
  36.  
  37.  
  38. -- part 1 (button)
  39. -- low flags: 00
  40. -- high flags: 0001
  41. -- rect: left=15 top=86 right=296 bottom=202
  42. -- title width / last selected line: 0
  43. -- icon id / first selected line: 0 / 0
  44. -- text alignment: 1
  45. -- font id: 0
  46. -- text size: 12
  47. -- style flags: 0
  48. -- line height: 16
  49. -- part name: 
  50.  
  51.  
  52. -- part 2 (button)
  53. -- low flags: 00
  54. -- high flags: A004
  55. -- rect: left=16 top=90 right=112 bottom=193
  56. -- title width / last selected line: 0
  57. -- icon id / first selected line: 0 / 0
  58. -- text alignment: 1
  59. -- font id: 0
  60. -- text size: 12
  61. -- style flags: 0
  62. -- line height: 16
  63. -- part name: Finishing Touches
  64. ----- HyperTalk script -----
  65. on mouseUp
  66.   if the visible of cd fld (the number of me-1) then
  67.     closeall
  68.   else
  69.     put the number of me into displayinfo
  70.     turnOn displayinfo
  71.   end if
  72. end mouseUp
  73.  
  74.  
  75.  
  76. -- part 3 (button)
  77. -- low flags: 00
  78. -- high flags: A004
  79. -- rect: left=16 top=120 right=142 bottom=193
  80. -- title width / last selected line: 0
  81. -- icon id / first selected line: 0 / 0
  82. -- text alignment: 1
  83. -- font id: 0
  84. -- text size: 12
  85. -- style flags: 0
  86. -- line height: 16
  87. -- part name: Shareware Registration
  88. ----- HyperTalk script -----
  89. on mouseUp
  90.   if the visible of cd fld (the number of me-1) then
  91.     closeall
  92.   else
  93.     put the number of me into displayinfo
  94.     turnOn displayinfo
  95.   end if
  96. end mouseUp
  97.  
  98.  
  99.  
  100. -- part 4 (button)
  101. -- low flags: 00
  102. -- high flags: A004
  103. -- rect: left=16 top=150 right=172 bottom=193
  104. -- title width / last selected line: 0
  105. -- icon id / first selected line: 0 / 0
  106. -- text alignment: 1
  107. -- font id: 0
  108. -- text size: 12
  109. -- style flags: 0
  110. -- line height: 16
  111. -- part name: Non-Commercial Use
  112. ----- HyperTalk script -----
  113. on mouseUp
  114.   if the visible of cd fld (the number of me-1) then
  115.     closeall
  116.   else
  117.     put the number of me into displayinfo
  118.     turnOn displayinfo
  119.   end if
  120. end mouseUp
  121.  
  122.  
  123.  
  124. -- part 5 (button)
  125. -- low flags: 00
  126. -- high flags: A004
  127. -- rect: left=16 top=180 right=202 bottom=193
  128. -- title width / last selected line: 0
  129. -- icon id / first selected line: 0 / 0
  130. -- text alignment: 1
  131. -- font id: 0
  132. -- text size: 12
  133. -- style flags: 0
  134. -- line height: 16
  135. -- part name: Commercial Use
  136. ----- HyperTalk script -----
  137. on mouseUp
  138.   if the visible of cd fld (the number of me -1) then
  139.     closeall
  140.   else
  141.     put the number of me into displayinfo
  142.     turnOn displayinfo
  143.   end if
  144. end mouseUp
  145.  
  146.  
  147.  
  148. -- part 6 (button)
  149. -- low flags: 00
  150. -- high flags: A004
  151. -- rect: left=16 top=210 right=232 bottom=193
  152. -- title width / last selected line: 0
  153. -- icon id / first selected line: 0 / 0
  154. -- text alignment: 1
  155. -- font id: 0
  156. -- text size: 12
  157. -- style flags: 0
  158. -- line height: 16
  159. -- part name: Print Registration Card
  160. ----- HyperTalk script -----
  161. on mouseUp
  162.   closeall
  163.   put "ShowDialog XCMD 1.6 Registration" into prompt
  164.   put the long date & return & cd fld "Registration" into container
  165.   PrintDoc prompt,container,prompt,times,12
  166. end mouseUp
  167.  
  168.  
  169.  
  170. -- part 7 (field)
  171. -- low flags: 81
  172. -- high flags: 2004
  173. -- rect: left=205 top=90 right=233 bottom=500
  174. -- title width / last selected line: 0
  175. -- icon id / first selected line: 0 / 0
  176. -- text alignment: 0
  177. -- font id: 3
  178. -- text size: 10
  179. -- style flags: 0
  180. -- line height: 13
  181. -- part name: 
  182. ----- HyperTalk script -----
  183. on mouseUp
  184.  
  185. end mouseup
  186.  
  187.  
  188. -- part 8 (field)
  189. -- low flags: 81
  190. -- high flags: 2004
  191. -- rect: left=205 top=90 right=233 bottom=500
  192. -- title width / last selected line: 0
  193. -- icon id / first selected line: 0 / 0
  194. -- text alignment: 0
  195. -- font id: 3
  196. -- text size: 10
  197. -- style flags: 0
  198. -- line height: 13
  199. -- part name: 
  200. ----- HyperTalk script -----
  201. on mouseUp
  202.  
  203. end mouseup
  204.  
  205.  
  206. -- part 9 (field)
  207. -- low flags: 81
  208. -- high flags: 2004
  209. -- rect: left=205 top=90 right=233 bottom=500
  210. -- title width / last selected line: 0
  211. -- icon id / first selected line: 0 / 0
  212. -- text alignment: 0
  213. -- font id: 3
  214. -- text size: 10
  215. -- style flags: 0
  216. -- line height: 13
  217. -- part name: 
  218. ----- HyperTalk script -----
  219. on mouseUp
  220.  
  221. end mouseup
  222.  
  223.  
  224. -- part 10 (field)
  225. -- low flags: 81
  226. -- high flags: 2004
  227. -- rect: left=205 top=90 right=233 bottom=500
  228. -- title width / last selected line: 0
  229. -- icon id / first selected line: 0 / 0
  230. -- text alignment: 0
  231. -- font id: 3
  232. -- text size: 10
  233. -- style flags: 0
  234. -- line height: 13
  235. -- part name: 
  236. ----- HyperTalk script -----
  237. on mouseUp
  238.  
  239. end mouseup
  240.  
  241.  
  242. -- part 11 (button)
  243. -- low flags: 80
  244. -- high flags: A004
  245. -- rect: left=283 top=247 right=268 bottom=434
  246. -- title width / last selected line: 0
  247. -- icon id / first selected line: 0 / 0
  248. -- text alignment: 1
  249. -- font id: 0
  250. -- text size: 12
  251. -- style flags: 0
  252. -- line height: 16
  253. -- part name: Close Information
  254. ----- HyperTalk script -----
  255. on mouseUp
  256.   closeall
  257. end mouseUp
  258.  
  259.  
  260.  
  261. -- part 12 (field)
  262. -- low flags: 01
  263. -- high flags: 0000
  264. -- rect: left=38 top=249 right=303 bottom=179
  265. -- title width / last selected line: 0
  266. -- icon id / first selected line: 0 / 0
  267. -- text alignment: 0
  268. -- font id: 3
  269. -- text size: 10
  270. -- style flags: 0
  271. -- line height: 13
  272. -- part name: 
  273.  
  274.  
  275. -- part 13 (field)
  276. -- low flags: 01
  277. -- high flags: 0000
  278. -- rect: left=38 top=236 right=250 bottom=133
  279. -- title width / last selected line: 0
  280. -- icon id / first selected line: 0 / 0
  281. -- text alignment: 0
  282. -- font id: 3
  283. -- text size: 9
  284. -- style flags: 0
  285. -- line height: 12
  286. -- part name: 
  287.  
  288.  
  289. -- part 14 (field)
  290. -- low flags: 81
  291. -- high flags: 0007
  292. -- rect: left=12 top=80 right=243 bottom=493
  293. -- title width / last selected line: 0
  294. -- icon id / first selected line: 0 / 0
  295. -- text alignment: 0
  296. -- font id: 3
  297. -- text size: 9
  298. -- style flags: 0
  299. -- line height: 12
  300. -- part name: Registration
  301.  
  302.  
  303. -- part 16 (field)
  304. -- low flags: 01
  305. -- high flags: 0000
  306. -- rect: left=178 top=288 right=303 bottom=309
  307. -- title width / last selected line: 0
  308. -- icon id / first selected line: 0 / 0
  309. -- text alignment: 0
  310. -- font id: 3
  311. -- text size: 10
  312. -- style flags: 0
  313. -- line height: 13
  314. -- part name: 
  315.  
  316.  
  317. -- part contents for background part 21
  318. ----- text -----
  319. XCMD Registration Fee
  320.  
  321. -- part contents for card part 7
  322. ----- text -----
  323.  
  324. As you can imagine, ShowDialog XCMD did not materialize out of thin air.  It has taken a good deal of effort to create, get functioning and debugged.  For those of you who have a need for a wide variety of dialogs and alerts, this external command will go a long way toward helping you create a product that looks very polished.
  325.  
  326.  
  327.  
  328. -- part contents for card part 8
  329. ----- text -----
  330.  
  331. My goal has been to provide a powerful and useful utility for use with HyperCard at a reasonable price.  Your registration entitles you to all future shareware upgrades without further cost.  A better deal cannot be had elsewhere.  You can expect that there will further enhancements to ShowDialog XCMD, including the capability to have multiple popup menus in the dialog as well true modeless dialogs.
  332.  
  333. -- part contents for card part 9
  334. ----- text -----
  335.  
  336. For Non-Commercial use:
  337.  
  338. If ShowDialog XCMD is useful to you, then you may include it in your free, shareware, or "in house" stack.  I only ask for a $5 registration to support the development of more XCMDs and XFCNs.  Believe me, $5 is a VERY small amount to pay for the extended power and functionality that ShowDialog brings to your stacks.
  339.  
  340.  
  341. -- part contents for card part 10
  342. ----- text -----
  343. For commercial use:
  344.  
  345. The registration fee for development and prototyping of a future commercial product is $25.  The registration fee for unlimited commercial use in a SINGLE "for sale" product is $50.  The fee for unlimited commercial use with MULTIPLE products is $100.   These are life-time registrations.  You are entitled to all future shareware updates without further cost.
  346.  
  347. -- part contents for card part 12
  348. ----- text -----
  349. AppleLink:  D2792
  350. CompuServe: 70411,63
  351. GEnie: JHODGDON
  352. MacNet: HODGDONJ
  353.  
  354.  
  355. -- part contents for card part 13
  356. ----- text -----
  357. I can be reached at:
  358.  
  359. -- part contents for card part 14
  360. ----- text -----
  361. IGNATZ Software
  362. Externals to go...
  363.  
  364.  
  365.  
  366. Fee structure:
  367.  
  368. _____  $5.......Free, shareware, or ΓÇ£in houseΓÇ¥ stackware  
  369.  
  370. _____  $25.....Development and prototyping of a future commercial product 
  371.  
  372. _____  $50.....Single ΓÇ£for saleΓÇ¥ product 
  373.  
  374. _____  $100...Multiple use commercial license 
  375.  
  376. These are all ΓÇ£one timeΓÇ¥ registrations.  You may use ShowDialog XCMD for as long as you wish.  You are entitled to all future shareware updates without further cost.
  377.  
  378. Name                   __________________________________________________________
  379.  
  380. Company              __________________________________________________________
  381.  
  382. Street Address    __________________________________________________________
  383.  
  384. City, State, Zip    __________________________________________________________
  385.  
  386. AppleLink, CIS, GEnie, MacNet
  387. or other electronic address __________________________________________________
  388.  
  389.  
  390. Please remit to:
  391.  
  392. Jay Hodgdon
  393. Ignatz Software
  394. 587 Cutwater Lane
  395. Foster City, CA  94404
  396.  
  397. Thank you.
  398.  
  399. -- part contents for background part 30
  400. ----- text -----
  401. 25
  402.  
  403. -- part contents for card part 16
  404. ----- text -----
  405. voice: (415) 578-1230